home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / STK100.ZIP / DWT.BI < prev    next >
Encoding:
Text File  |  1994-11-27  |  1.5 KB  |  48 lines
  1. '******************************************************************************
  2. 'File:      dwt.bi
  3. 'Version:   1.0
  4. 'Tab stops: every 2 collumns
  5. 'Project:   The Sound ToolKit
  6. 'Copyright: 1994 DiamondWare
  7. 'Written:   by Keith Weiner, Erik Lorenzen, and Don Lemons
  8. 'Purpose:   Contains declarations for the DW Timer
  9. 'History:   DL 09/24/94 Ported to .BI
  10. '           EL 11/27/94 Finalized for v1.0
  11. '
  12. 'NOTE: This code is __NOT__ compatible with source profilers
  13. '******************************************************************************
  14.  
  15.  
  16.  
  17. 'Below are the timer rates supported by DWT.  Anything in between
  18. 'the listed values will cause the DOS/BIOS clock to tick erratically
  19. 'and is thus not allowed.  Any value higher than 145.6 Hz means
  20. 'you have some very special circumstances; dwt won't fit your needs
  21. 'anyway.
  22.       
  23. CONST dwt182HZ    = 0 ' 18.2 Hz
  24. CONST dwt364HZ    = 1 ' 36.4 Hz
  25. CONST dwt728HZ    = 2 ' 72.8 Hz
  26. CONST dwt1456HZ = 3 '145.6 Hz
  27.  
  28.  
  29.  
  30. DECLARE SUB          dwtInit                ALIAS "DWT_INIT"             (BYVAL rate%)
  31.  
  32. 'If the program has called dwt_Init, it _MUST_ call dwt_Kill before it
  33. 'terminates.
  34. '
  35. 'NB: Trap critical errors.  Don't let DOS put up the
  36. '    "Abort, Retry, Fail?" text.  ('sides, it'll destroy your pretty gfx)
  37. DECLARE SUB          dwtKill                ALIAS "DWT_KILL"             ()
  38.  
  39.  
  40. 'The following 2 subroutines affect the timer, but not the music
  41. DECLARE SUB          dwtPause             ALIAS "DWT_INIT"             ()
  42.  
  43. DECLARE SUB          dwtUnPause         ALIAS "DWT_KILL"             ()
  44.  
  45.  
  46. '# of ticks since Beginning of World
  47. DECLARE FUNCTION dwtMasterTick& ALIAS "DWT_MASTERTICK" ()
  48.